Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/w95demo/shared.dir/00382_DIALOG CALLING SCRIPTS.ls

Text File | 1995-08-22 | 11.0 KB | 374 lines

on dialogOpen d
  global gDialogWindow, gLastAudio
  set gLastAudio to EMPTY
  sound stop 1
  if objectp(gDialogWindow) then
    forget(gDialogWindow)
  end if
  set gDialogWindow to window "dw"
  set the fileName of gDialogWindow to "Mdialogs.DIR"
  set mywindowrect to rect(1, 1, 2, 2)
  set the rect of gDialogWindow to mywindowrect
  set the windowType of gDialogWindow to 2
  set the modal of gDialogWindow to 1
  set the titleVisible of gDialogWindow to 0
  set the visible of gDialogWindow to 0
  moveToBack(gDialogWindow)
  open(gDialogWindow)
  tell gDialogWindow
    go(d)
    set w to dialogwidth()
    set ht to dialogHeight()
  end tell
  set h to the stageLeft + 320 - (w / 2)
  set v to the stageTop + 240 - (ht / 2)
  set mywindowrect to rect(h, v, h + w - 2, v + ht - 2)
  set the rect of gDialogWindow to mywindowrect
  set the visible of gDialogWindow to 1
  moveToFront(gDialogWindow)
  updateStage()
end

on dialogClose
  global gDialogWindow
  if objectp(gDialogWindow) then
    set the modal of gDialogWindow to 0
    set the visible of gDialogWindow to 0
    puppetSprite(48, 0)
    forget(gDialogWindow)
    updateStage()
    if (the movie = "M08CHBKG.DIR") and (the frameLabel = "end") then
      drawPaper()
    end if
  end if
end

on timeOutResellerDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gAutoMode, gMainMovieName
  if gDialogResult = EMPTY then
    set gDialogCallback to "timeOutResellerDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    set the timeoutLength to gDialogTimeout
    set the timeoutScript to "goCloser"
    if gAutoMode = 1 then
      dialogOpen("d5")
    else
      dialogOpen("d5a")
    end if
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "automatic" then
      set gAutoMode to 1
      set gTeaserMode to 0
      clearTimeout()
      if the movie = gMainMovieName then
        clearMenuButtons()
        selectSection("quick tour")
      end if
    else
      if r = "interactive" then
        set gAutoMode to 0
        set gTeaserMode to 0
        resetResellerTimeout()
      else
        if r = "restart" then
          goCloser()
          exit
        end if
      end if
    end if
  end if
end

on exitDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength, gAutoMode, gResellerVersion, gLastScreen
  if gDialogResult = EMPTY then
    set gDialogCallback to "exitDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    dialogOpen("d1")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      if gResellerVersion = 0 then
        goCloser()
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on scanDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gScanExitFlag, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength
  if gDialogResult = EMPTY then
    set gDialogCallback to "scanDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    dialogOpen("d6")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      goCloser()
      exit
    else
      if r = "scan" then
        set gScanExitFlag to 3
        goScan()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on deleteFilesDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength
  if gDialogResult = EMPTY then
    set gDialogCallback to "deleteFilesDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    dialogOpen("d2")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      doQuit()
      exit
    else
      if r = "delete" then
        deleteFilesDialog2()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on deleteFilesDialog2
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength
  if gDialogResult = EMPTY then
    set gDialogCallback to "deleteFilesDialog2"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    dialogOpen("d7")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 5
    if r = "exit" then
      doQuit()
      exit
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
    deleteFilesDialog()
  end if
end

on restartDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength, gResellerVersion
  timeOutResellerDialog()
  exit
  if gDialogResult = EMPTY then
    if gResellerVersion = 1 then
      timeOutResellerDialog()
      exit
    end if
    set gDialogCallback to "restartDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    set the timeoutLength to gDialogTimeout
    set the timeoutScript to "goCloser"
    dialogOpen("d4")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      goCloser()
      exit
    else
      if r = "restart" then
        goRestart()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on AutoDecisionDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength, gResellerVersion, gMainMovieName, gAutoMode, gTeaserMode
  if gDialogResult = EMPTY then
    set gDialogCallback to "AutoDecisionDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    if gResellerVersion = 1 then
      set the timeoutLength to gDialogTimeout
      set the timeoutScript to "chooseTeaserDemo"
    end if
    dialogOpen("d5")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    if r = "interactive" then
      set gAutoMode to 0
      set gTeaserMode to 0
      if gResellerVersion = 1 then
        resetResellerTimeout()
      else
        set the timeoutScript to gLastTimeoutScript
        set the timeoutLength to gLastTimeoutLength
      end if
      exit
    else
      if r = "restart" then
        goRestart()
        exit
      else
        set the timeoutScript to gLastTimeoutScript
        set the timeoutLength to gLastTimeoutLength
      end if
    end if
  end if
end

on timeOutDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength
  if gDialogResult = EMPTY then
    set gDialogCallback to "timeOutDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    set the timeoutLength to gDialogTimeout
    set the timeoutScript to "goCloser"
    dialogOpen("d5")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      goCloser()
      exit
    else
      if r = "restart" then
        goRestart()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on endAutoDemoDialog
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength, gResellerVersion
  if gDialogResult = EMPTY then
    set gDialogCallback to "endAutoDemoDialog"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    if gResellerVersion = 1 then
      set the timeoutLength to gDialogTimeout
      set the timeoutScript to "goCloser"
    end if
    dialogOpen("d3")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "exit" then
      exitDialog()
      exit
    else
      if r = "restart" then
        goRestart()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end

on endAutoDemoDialogReseller
  global gIntroTimeOut, gInteractiveTimeout, gOEMTimeout, gResellerTimeout, gDialogTimeout, gDialogWindow, gDialogResult, gDialogCallback, gLastTimeoutScript, gLastTimeoutLength, gResellerVersion
  if gDialogResult = EMPTY then
    set gDialogCallback to "endAutoDemoDialogReseller"
    set gDialogResult to EMPTY
    set gLastTimeoutScript to the timeoutScript
    set gLastTimeoutLength to the timeoutLength
    set the timeoutScript to EMPTY
    if gResellerVersion = 1 then
      set the timeoutLength to gDialogTimeout
      set the timeoutScript to "goCloser"
    end if
    dialogOpen("d9")
  else
    dialogClose()
    set r to gDialogResult
    set gDialogResult to EMPTY
    set the timeoutScript to EMPTY
    set the timeoutLength to 0
    if r = "menu" then
      set gAutoMode to 0
      set gTeaserMode to 0
      resetResellerTimeout()
      goMenu()
      exit
    else
      if r = "restart" then
        goRestart()
        exit
      end if
    end if
    set the timeoutScript to gLastTimeoutScript
    set the timeoutLength to gLastTimeoutLength
  end if
end